home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of CD …rtainment & Home Learning / Explore the World of CD Entertainment and Home Learning (Magnum Design)(Macworld)(1995).iso / *Consumer Demo CD ƒ / *ConsDemo / 00002_Script_--movie script 2 < prev    next >
Text File  |  1995-09-27  |  16KB  |  511 lines

  1. --
  2. on HiliteIcon demoName
  3.   
  4.   
  5. end
  6.  
  7. on goIndexDemoEnt
  8.   global gReturnMarker,gmarkFrame,gchooseType,gDemoName,gSmallScreen,gDemoText,gLanguage
  9.   global gDemoPictSnum, gDemoTextSnum,gHLPictCNum,gHLTextCNum,gDemoNameSNum,gTextPages,gTextPagesG
  10.   global gTextPagesF,gTextPagesJ,gTextPagesE,gPageCount --EB 9/21
  11.   cursor 4
  12.   puppetSound "SFX.Click"
  13.   updateStage
  14.   
  15.   HelpStatus
  16.   
  17.   put " " into gDemoName
  18.   set gchooseType = 2
  19.   set demoNum = the ClickOn - 31 --(sprite clickons start at chan 32)
  20.   set gReturnMarker = marker(0)
  21.   set gmarkFrame = " "
  22.   set gPageCount = 1  --EB 9/21
  23.   if demoNum = 1 then
  24.     set ThisDemo to "Buried"
  25.     set gTextPagesE to 2
  26.     set gTextPagesF to 2
  27.     set gTextPagesG to 2
  28.     set gTextPagesJ to 4
  29.     set gmarkFrame to "Buried In Time:Buried In Time DEMO"
  30.   else if demoNum = 2 then
  31.     set thisDemo to "Dark Forces Demo"
  32.     set gTextPagesE to 1
  33.     set gTextPagesF to 1
  34.     set gTextPagesG to 1
  35.     set gTextPagesJ to 1
  36.     set gmarkFrame to "Dark Forces demo:Dark Forces Demo"
  37.   else if demoNum = 3 then
  38.     set thisDemo to "Diamonds"
  39.     set gTextPagesE to 1
  40.     set gTextPagesF to 2
  41.     set gTextPagesG to 2
  42.     set gTextPagesJ to 3
  43.     set gmarkFrame to "Diamonds 3D Demo:Diamonds 3D Demo"
  44.   else if demoNum = 4 then
  45.     set thisDemo to "Doom"
  46.     set gTextPagesE to 1
  47.     set gTextPagesF to 1
  48.     set gTextPagesG to 1
  49.     set gTextPagesJ to 3
  50.     set gmarkFrame to "Doom:Doom"
  51.   else if demoNum = 5 then
  52.     set thisDemo to "F/A-18"
  53.     set gTextPagesE to 1
  54.     set gTextPagesF to 2
  55.     set gTextPagesG to 2
  56.     set gTextPagesJ to 2
  57.     set gmarkFrame to "F/A-18 Demo:F/A-18 Hornet 2.0 Demo"
  58.   else if demoNum = 6 then
  59.     set thisDemo to "Foul Play"
  60.     set gTextPagesE to 1
  61.     set gTextPagesF to 1
  62.     set gTextPagesG to 1
  63.     set gTextPagesJ to 2
  64.     set gmarkFrame to "Foul Playô Demo:Foul Playô 68k"
  65.     --set gmarkFrame to "Foul Playô Demo:Foul Playô PPC"
  66.   else if demoNum = 7 then
  67.     set thisDemo to "Full Throttle"
  68.     set gTextPagesE to 1
  69.     set gTextPagesF to 1
  70.     set gTextPagesG to 1
  71.     set gTextPagesJ to 2
  72.     set gmarkFrame to "Full Throttle Demo:Full Throttle Trailer"
  73.   else if demoNum = 8 then
  74.     set thisDemo to "Havoc"
  75.     set gTextPagesE to 1
  76.     set gTextPagesF to 2
  77.     set gTextPagesG to 2
  78.     set gTextPagesJ to 3
  79.     set gmarkFrame to "HAVOCô Preview:HAVOCô Preview"
  80.   else if demoNum = 9 then
  81.     set thisDemo to "Links Pro"
  82.     set gTextPagesE to 2
  83.     set gTextPagesF to 2
  84.     set gTextPagesG to 2
  85.     set gTextPagesJ to 4
  86.     set gmarkFrame to "Links Pro CD Demo:Links Pro CD Demo"
  87.   else if demoNum = 10 then
  88.     set thisDemo to "Marathon II"
  89.     set gTextPagesE to 2
  90.     set gTextPagesF to 2
  91.     set gTextPagesG to 2
  92.     set gTextPagesJ to 3
  93.     set gmarkFrame to "Marathon 2:Marathon 2"
  94.   else if demoNum = 11 then
  95.     set thisDemo to "Onslaught"
  96.     set gTextPagesE to 1
  97.     set gTextPagesF to 1
  98.     set gTextPagesG to 1
  99.     set gTextPagesJ to 3
  100.     set gmarkFrame to "OnSlaughtô demoÉ:Onslaughtô Demo 1.0.5"
  101.   else if demoNum = 12 then
  102.     set thisDemo to "PowerPete"
  103.     set gTextPagesE to 1
  104.     set gTextPagesF to 2
  105.     set gTextPagesG to 2
  106.     set gTextPagesJ to 3
  107.     set gmarkFrame to "PowerPete:PowerPete(Demo)"    
  108.   else if demoNum = 13 then
  109.     set thisDemo to "Reb Assault"
  110.     set gTextPagesE to 1
  111.     set gTextPagesF to 1
  112.     set gTextPagesG to 1
  113.     set gTextPagesJ to 2
  114.     set gmarkFrame to "Rebel Assault 2 Demo:Rebel Assault 2 Trailer"
  115.   else if demoNum = 14 then
  116.     set thisDemo to "Sensory Overload"
  117.     set gTextPagesE to 1
  118.     set gTextPagesF to 2
  119.     set gTextPagesG to 2
  120.     set gTextPagesJ to 3
  121.     set gmarkFrame to "Sensory Overloadô Demo 1.1:Sensory Overloadô Demo"
  122.   else if demoNum = 15 then
  123.     set thisDemo to "TD"
  124.     set gTextPagesE to 2
  125.     set gTextPagesF to 2
  126.     set gTextPagesG to 2
  127.     set gTextPagesJ to 4
  128.     set gmarkFrame to "Total Distortion:TD Demo!"
  129.   end if
  130.   
  131.   
  132.   HiliteIcon thisDemo
  133.   
  134.   puppetSprite gDemoPictSNum,1 --28
  135.   puppetSprite gDemoTextSNum,1 --29
  136.   puppetSprite gDemoNameSNum,1 --26
  137.   puppetSprite 48,1 --for pageTurn
  138.   
  139.   
  140.   set DemoPict = ThisDemo & ".pict"  
  141.   set DemoName = ThisDemo & ".name"
  142.   
  143.   if gLanguage = "GER" then
  144.     set gTextPages = gTextPagesG
  145.   else if gLanguage = "ENG" then
  146.     set gTextPages = gTextPagesE
  147.   else if gLanguage = "FRE" then
  148.     set gTextPages = gTextPagesF
  149.   else if gLanguage = "JAP" then
  150.     set gTextPages = gTextPagesJ
  151.   end if
  152.   
  153.   if gTextPages > 1 then
  154.     set gDemoText = ThisDemo & "." & gLanguage & ".text1"
  155.     set the castNum of sprite 48 to cast "pageTurnArrowsE"
  156.   else
  157.     set gDemoText = ThisDemo & "." & gLanguage & ".text"
  158.     set the castNum of sprite 48 to cast "pageTurnMaskE"
  159.   end if
  160.   
  161.   set the castNum of sprite gDemoPictSNum to cast DemoPict  
  162.   set the castNum of sprite gDemoTextSNum to cast gDemoText
  163.   set the castNum of sprite gDemoNameSNum to cast DemoName
  164.   -- set the text of cast "DemoName.textE" to the text of cast DemoName
  165.   --put "demoName=" & the text of cast demoName
  166.   
  167.   updateStage
  168.   
  169.   puppetSound 0
  170.   cursor -1
  171. end goIndexDemoEnt
  172.  
  173.  
  174. on goIndexDemoHL
  175.   global gReturnMarker,gmarkFrame,gchooseType,gDemoName,gSmallScreen,gDemoText, glanguage
  176.   global gDemoPictSnum, gDemoTextSnum,gHLPictCNum,gHLTextCNum,gDemoNameSNum,gTextPagesE,gTextPagesG
  177.   global gTextPages,gTextPagesF,gTextPagesJ,gPageCount --EB 9/21
  178.   cursor 4
  179.   puppetSound "SFX.Click"
  180.   updateStage
  181.   
  182.   HelpStatus
  183.   
  184.   set gDemoName = " "
  185.   set gchooseType = 1
  186.   set demoNum = the ClickOn - 31 --(sprite clickons start at chan 32)
  187.   set gPageCount = 1  --EB 9/21
  188.   set gReturnMarker = marker(0)
  189.   set gmarkFrame = " "
  190.   if demoNum = 1 then
  191.     set ThisDemo to "80 Days"
  192.     set gTextPagesE to 2
  193.     set gTextPagesG to 3
  194.     set gTextPagesF to 3
  195.     set gTextPagesJ to 4
  196.     set gmarkFrame to "80 Days Demo:80 Days Demo"
  197.   else if demoNum = 2 then
  198.     set thisDemo to "Dr. Seuss' ABC's"
  199.     set gTextPagesE to 1
  200.     set gTextPagesF to 2
  201.     set gTextPagesG to 2
  202.     set gTextPagesJ to 3
  203.     set gmarkFrame to "Dr. Seuss's ABC:Dr. Seussís  ABC"
  204.   else if demoNum = 3 then
  205.     set thisDemo to "DK Science"
  206.     set gTextPagesE to 2
  207.     set gTextPagesF to 2
  208.     set gTextPagesG to 2
  209.     set gTextPagesJ to 2
  210.     set gmarkFrame to "SCIENCE:SCIENCE"
  211.   else if demoNum = 4 then
  212.     set thisDemo to "Freddi"
  213.     set gTextPagesE to 2
  214.     set gTextPagesF to 3
  215.     set gTextPagesG to 3
  216.     set gTextPagesJ to 5
  217.     set gmarkFrame to "Freddi Demo:Freddi Demo"
  218.   else if demoNum = 5 then
  219.     set thisDemo to "How Animals Move"
  220.     set gTextPagesE to 1
  221.     set gTextPagesF to 2
  222.     set gTextPagesG to 2
  223.     set gTextPagesJ to 3
  224.     set gmarkFrame to "How Animals Move Demo:How Animals Move Demo"
  225.   else if demoNum = 6 then
  226.     set thisDemo to "Airport"
  227.     set gTextPagesE to 2
  228.     set gTextPagesF to 2
  229.     set gTextPagesG to 2
  230.     set gTextPagesJ to 4
  231.     set gmarkFrame to "Airport demo:Airport Demo"
  232.   else if demoNum = 7 then
  233.     set thisDemo to "Math Munchers"
  234.     set gTextPagesE to 1
  235.     set gTextPagesF to 1
  236.     set gTextPagesG to 1
  237.     set gTextPagesJ to 2
  238.     set gmarkFrame to "Math Munchers:MMD Demo"
  239.   else if demoNum = 8 then
  240.     set thisDemo to "DK MFIAD" --my first dictionary
  241.     set gTextPagesE to 1
  242.     set gTextPagesF to 1
  243.     set gTextPagesG to 1
  244.     set gTextPagesJ to 2
  245.     set gmarkFrame to "MFIAD:MFIAD"
  246.   else if demoNum = 9 then
  247.     set thisDemo to "Oregon Trail II"
  248.     set gTextPagesE to 1
  249.     set gTextPagesF to 1
  250.     set gTextPagesG to 1
  251.     set gTextPagesJ to 2
  252.     set gmarkFrame to "Oregon Trail II:GENERIC_MAC"
  253.   else if demoNum = 10 then
  254.     set thisDemo to "PAWS"
  255.     set gTextPagesE to 2
  256.     set gTextPagesF to 2
  257.     set gTextPagesG to 2
  258.     set gTextPagesJ to 3
  259.     set gmarkFrame to "Paws:Paws"
  260.   else if demoNum = 11 then
  261.     set thisDemo to "Putt Putt"
  262.     set gTextPagesE to 2
  263.     set gTextPagesF to 2
  264.     set gTextPagesG to 3
  265.     set gTextPagesJ to 4
  266.     set gmarkFrame to "Zoo Demo:Zoo Demo"
  267.   else if demoNum = 12 then
  268.     set thisDemo to "Letters Demo"
  269.     set gTextPagesE to 1
  270.     set gTextPagesF to 2
  271.     set gTextPagesG to 2
  272.     set gTextPagesJ to 3
  273.     set gmarkFrame to "Sesame Street Letters Demo:Letters Demo"
  274.   else if demoNum = 13 then  
  275.     set thisDemo to "Numbers Demo"
  276.     set gTextPagesE to 2
  277.     set gTextPagesF to 2
  278.     set gTextPagesG to 2
  279.     set gTextPagesJ to 4
  280.     set gmarkFrame to "Sesame Street Numbers Demo:Numbers Demo"
  281.   else if demoNum = 14 then
  282.     set thisDemo to "applehouse"
  283.     set gTextPagesE to 1
  284.     set gTextPagesF to 1
  285.     set gTextPagesG to 1
  286.     set gTextPagesJ to 2
  287.     set gmarkFrame to "The Magic Applehouse:Magic Applehouse"
  288.   else if demoNum = 15 then
  289.     set thisDemo to "Body"
  290.     set gTextPagesE to 1
  291.     set gTextPagesF to 1
  292.     set gTextPagesG to 2
  293.     set gTextPagesJ to 2
  294.     set gmarkFrame to "BODY:BODY"    
  295.   end if
  296.   
  297.   puppetSprite gDemoPictSNum,1 --28
  298.   puppetSprite gDemoTextSNum,1 --29
  299.   puppetSprite gDemoNameSNum,1 --26
  300.   puppetSprite 48,1 --for pageTurn
  301.   
  302.   set DemoPict = ThisDemo & ".pict"  
  303.   set DemoName = ThisDemo & ".name"
  304.   put "demoName = " && demoName
  305.   
  306.   if gLanguage = "GER" then
  307.     set gTextPages = gTextPagesG
  308.   else if gLanguage = "ENG" then
  309.     set gTextPages = gTextPagesE
  310.   else if gLanguage = "FRE" then
  311.     set gTextPages = gTextPagesF
  312.   else if gLanguage = "JAP" then
  313.     set gTextPages = gTextPagesJ
  314.   end if
  315.   
  316.   if gTextPages > 1 then
  317.     set gDemoText = ThisDemo & "." & gLanguage & ".text1"
  318.     set the castNum of sprite 48 to cast "pageTurnArrowsHL"
  319.   else
  320.     set gDemoText = ThisDemo & "." & gLanguage & ".text"
  321.     set the castNum of sprite 48 to cast "pageTurnMaskHL"
  322.   end if
  323.   
  324.   set the castNum of sprite gDemoPictSNum to cast DemoPict  
  325.   set the castNum of sprite gDemoTextSNum to cast gDemoText
  326.   set the castNum of sprite gDemoNameSNum to cast DemoName
  327.   --set the text of cast "DemoName.text" to the text of cast DemoName
  328.   -- put "demoName=" & the text of cast demoName
  329.   
  330.   updateStage
  331.   
  332.   puppetSound 0
  333.   cursor -1
  334. end goIndexDemoHL
  335.  
  336. on doPageTurn  --EB 9/21
  337.   global gTextPages, gDemoTextSnum,gDemoText,gPageCount,gLanguage,gDemoMarker
  338.   
  339.   puppetSprite 29,1
  340.   puppetSprite 48,1
  341.   
  342.   set DemoTextChars = the number of chars in gDemoText
  343.   set clickV = getAt(the ClickLoc,2) - the top of sprite 48
  344.   set PagingSpriteHeight = the height of sprite 48 - 15  
  345.   if gDemomarker contains "HL2" then
  346.     set arrowsGrey = "PageTurnArrowsHL"
  347.   else if gDemomarker contains "E2" then
  348.     set arrowsGrey = "PageTurnArrowsE"
  349.   else if gDemomarker contains "Main" then
  350.     set arrowsGrey = "PageTurnArrowsM"
  351.   end if
  352.   
  353.   if clickV < 15 then --page back
  354.     if gPageCount = 1 then
  355.       --swap sprite that shows user can't page back?
  356.       
  357.       nothing
  358.     else
  359.       puppetSound "SFX.Click"
  360.       set gPageCount = gPageCount - 1
  361.       if gPageCount = 1 then set the castNum of sprite 48 to cast (arrowsGrey & "1")
  362.       put "pageTurn back" & gPageCount
  363.       put string(gPageCount) into char DemoTextChars of gDemoText
  364.       
  365.       set the castNum of sprite gDemoTextSNum to cast gDemoText
  366.     end if
  367.   else if clickV > PagingSpriteHeight then  --page forward
  368.     if gPageCount = gTextPages then
  369.       --swap sprite that shows user can't page forward?
  370.       
  371.       nothing
  372.     else
  373.       puppetSound "SFX.Click"
  374.       set gPageCount = gPageCount + 1
  375.       if gPageCount = gTextPages then set the castNum of sprite 48 to cast (arrowsGrey & "2")
  376.       put "pageTurn fwd" & gPageCount
  377.       put string(gPageCount) into char DemoTextChars of gDemoText
  378.       
  379.       set the castNum of sprite gDemoTextSNum to cast gDemoText
  380.     end if
  381.   else
  382.     nothing
  383.   end if
  384.   
  385.   updateStage
  386.   puppetSound 0
  387. end
  388.  
  389. on animCloseBox
  390.   global gDemoMarker
  391.   puppetSound "sfx.click"
  392.   puppetSprite 47,1
  393.   set the castnum of sprite 47 to cast "closebox.clicked"
  394.   updateStage
  395.   repeat with i=1 to 30
  396.     pause  
  397.   end repeat
  398.   set the castnum of sprite 47 to cast "closebox.plain"
  399.   updateStage
  400.   goMarker gDemoMarker
  401.   puppetSprite 47,0
  402. end 
  403.  
  404. on helpReturn
  405.   global gDemoMarker
  406.   puppetSound "sfx.click"
  407.   puppetSprite 17,1
  408.   if gDemoMarker contains "E2" then
  409.     set helpButtonHilite = "Help.hiliteE"
  410.     set helpButtonXhilite = "Help.nohiliteE"
  411.     set the castnum of sprite 17 to cast helpButtonHilite
  412.   else if gDemoMarker contains "HL2" then
  413.     set helpButtonHilite = "Help.hiliteHL"
  414.     set helpButtonXhilite = "Help.nohiliteHL"
  415.     set the castnum of sprite 17 to cast helpButtonHilite
  416.   end if
  417.   updateStage
  418.   repeat with i=1 to 60
  419.     pause  
  420.   end repeat
  421.   set the castnum of sprite 17 to cast helpButtonxhilite
  422.   updateStage
  423.   goMarker gDemoMarker
  424.   puppetSprite 17,0
  425. end 
  426.  
  427. on checkExit
  428.   if the commandDown and¨
  429.  (the key = "q" or the key = ".") and¨
  430.  the exitLock = true  then quitDemo 
  431.   if the commandDown and (the key = "q" ) and¨
  432.   the exitLock = true  then quitDemo 
  433. end checkExit
  434.  
  435. on quitDemo
  436.   puppetSprite 4,0
  437.   puppetSprite 17,0
  438.   puppetSprite 26,0
  439.   puppetSprite 28,0
  440.   puppetSprite 29,0
  441.   puppetSprite 47,0
  442.   puppetSprite 48,0
  443.   updateStage
  444.   go "Credits"
  445.   --quit
  446. end quitDemo
  447. --____________________________________________________________________________
  448. on LaunchDemo
  449.   Global gWriteObject,SysPath,gmarkFrame,gDemoMarker
  450.   
  451.   
  452.   --below: writes "demo.tmp" to "System Folder" of startup disk 
  453.   put FileIO(mNew,"write",SysPath & "demo.tmp") into gWriteObject  
  454.   
  455.   --below:2nd line after "RETURN" is a projector -- one for each HL(+Lang) and E(+Lang) --8 total
  456.   --each projector is used for returning to proper marker within interface
  457.   if gDemoMarker contains "HL2" then
  458.     set demoMarker = "Home Learning:" & gmarkFrame & RETURN & gDemoMarker
  459.   else if gDemoMarker contains "E2" then
  460.     set demoMarker = "Entertainment:" & gmarkFrame & RETURN & gDemoMarker
  461.   end if
  462.   
  463.   gWriteObject(mWriteString, demoMarker)
  464.   gWriteObject(mDispose)
  465.   
  466.   open "DemoRunner 2.4"-- name of AppleScript App 
  467.   
  468.   quit --without saving dialog
  469. end
  470.  
  471. on LaunchDemoII --for special case demos Reb Assault,Full Throttle,Onslaught, Doom
  472.   Global gWriteObject,SysPath,gmarkFrame,gDemoMarker
  473.   
  474.   put FileIO(mNew,"write",SysPath & "demo.tmp") into gWriteObject  
  475.   set demoMarker = gmarkFrame & RETURN & gDemoMarker
  476.   gWriteObject(mWriteString, demoMarker)
  477.   gWriteObject(mDispose)
  478.   
  479.   open "DemoRunner 2.2A"-- name of AppleScript App for launching demos on root of CDROM
  480.   quit
  481. end
  482.  
  483. on checkFoulPlayDemoType answer --for Foul Play Demo only
  484.   global gWriteObject,SysPath,gmarkFrame,gDemoMarker
  485.   set CPUType = answer
  486.   
  487.   if CPUType = "PPC" then
  488.     set gmarkFrame = "Foul Playô Demo:Foul Playô PPC"
  489.     set demoMarker = gmarkFrame & RETURN & gDemoMarker
  490.   else if CPUType = "NotPPC" then
  491.     set gmarkFrame = "Foul Playô Demo:Foul Playô 68k"
  492.     set demoMarker = gmarkFrame & RETURN & gDemoMarker
  493.   else if CPUType = "Notsure" then
  494.     set gMarkFrame = ""
  495.     goMarker gDemoMarker 
  496.     exit
  497.   end if
  498.   
  499.   put FileIO(mNew,"write",SysPath & "demo.tmp") into gWriteObject  
  500.   
  501.   gWriteObject(mWriteString, demoMarker)
  502.   gWriteObject(mDispose)
  503.   
  504.   open "DemoRunner 2.2A"-- name of AppleScript App for Foul Play and Rebel Assault only
  505.   quit --without saving dialog
  506. end
  507.  
  508. on mouseDnHilite
  509.   
  510. end
  511.